let ( <>! ) x y = (cmp x y)<>0